home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / key_split.awk < prev    next >
Encoding:
AWK Script  |  1996-09-27  |  259 b   |  22 lines
  1. BEGIN {
  2.    out=""
  3.    error=""
  4. }
  5. /^ *@start-reference-copy +[^ ]+ *$/ {
  6.    out=$2
  7.    next
  8. }
  9. /^ *@end-reference-copy*$/ {
  10.    out=""
  11. }
  12. out=="" {
  13.    next
  14. }
  15. { if (substr($0,1,4)==";OCL")
  16.      print("@"substr($0,5)) >out
  17.   else
  18.      print($0) >out
  19.   next
  20. }
  21. #{{{}}}
  22.